General Disclaimer 


One or more of the Following Statements may affect this Document 


• This document has been reproduced from the best copy furnished by the 
organizational source. It is being released in the interest of making available as 
much information as possible. 


• This document may contain data, which exceeds the sheet parameters. It was 
furnished in this condition by the organizational source and is the best copy 
available. 


• This document may contain tone-on-tone or color graphs, charts and/or pictures, 
which have been reproduced in black and white. 


• This document is paginated as submitted by the original source. 


• Portions of this document are not fully legible due to the historical nature of some 
of the material. However, it is the best reproduction available from the original 
submission. 


Produced by the NASA Center for Aerospace Information (CASI) 



N /6- 10750 


(NASA-CR-144534) USER'S GUIDE TO PROGRAM 
PLEXSTAP Final Report (Texas A6M Univ.) 

36 p HC $3.75 CSCL 01B 

Unclas 

G3/61 39396 




TCXAk KNOlNtKfllNO tXPtniMKNT tTATrON 
TEXAS ASM UNIVERSITY 
COLLEGE STATION TEXAS 77S49 


t 

I 


\ 




User's Guide to Program FLEXSTAB 
A Final Report 


NASA CR- 


to the 

National Aeronautics and Space Administration 
Manned Spacecraft Center 


research performed under 
Contract No. NAS 9-11303 


by 


R. K. Cavin, Co-Principal 
Investigator and Associate Professor 
of Electrical Engineering 


and 


D. Colunga, Co-Principal Investigator and 
Associate Professor, Computing Science 


February 23, 1975 


Texas A&M University 
Texas Engineering Experiment Station 
Space Technology Division 



R. K. Cavin, III, Ph.D. 
Electrical Engineering 



n 
1 1 



Table of Contents 


Page 


1 . Sunmary 1 

2. FLEXSTAB Functional Flow 2 

3. Geometry Definition Program 3 

4. Steady Aerodynamic Influence Coefficient Program 6 

5. Internal Structural Influence Coefficient Program 9 

6. Normal Modes Program 12 

7. Stability Derivations and Static Stability Program 17 

8. Geometry Definition Plot Program 28 


1 


Summary 

This document represents a user's manual for correctly submitting 
FLEXSTAB |,rogram runs on the UNIVAC 1108 computer system. All riiajor 
program modules, converted and correctly executed by Texas AAM project 
personnel, have been Included. All CUR control cards have been documen- 
ted for the user's convenience. The JOB card raramters have also been 
Included In order to provide some Idea as to "reasonable" time estimates 
for the program modules. 


2 


Gtometric Otfinition 



FIG. I FLEXTAB FUNCTIONAL FLOW 










Geowttry Definition (GO) Prooraw 


Input Required 
GD Data Deck 

Pr ogram Required 

GD program in Tape PCF ^ Tape B 

Pr ogram Correction Require d 
None 

Output File Generated 

Tape A ■ GD tape ■ A05090 Geometry descripti 

Fi le Destinies 

Tape A: SAIC 

UAIC 
ISIC 
ESIC 
SDSS 
TH 

GDPLOT 

C over Sheet Format 
Ref-GD/1 

Control Cards 


Ref-GD/2 


MSTRUCTIOMS FOR CENTRAL COMRUTCR COMPLEX COMRUTER RUNS 
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Rcf-GD/1 


D. Colunga 

•AOGC NO 

1048 

SOX NO 

C-16 

amonc no 

5971 

OAIE 

AM ft 

• AlitiAiS 

DiViStON coot 

AROO NO 

AROJ NO 

EIT TMC 

MAX. TIMC 

H!. ' i 

deck no 


FD 32 

E169 

3696E 

1 

2 

■Sli 




ORCRATmC SYSTEM 


TYPE OF RUN 


lO« wa 


iiO« fontmam V Q 


JfOO tco^t □ 


PFOO Q 


TCIT □ 


COMFwTC* RCOUtHfMClMTS 


HOI FOMTNAM IV [19 UOO UilANTI Q I OTNCM ICm«lM KlOwI 


not 


IfOO □ 


1101 OTmCR 


□ 


UOO OTMf« 


WPUT TAPES 


OTHCW 


OUTPI f TAPES 


RACK 

UNIT 

REEL NO 

File 

NAME 

UNIT 1 

REEL NO 

file 

NAME 

■ 

SAVE 

AROCESSMO REOmREO 

* 

B 



s 

A05090 

m 

i 

Yes 



■ 



■ 



■ 




■ 



■ 



i 




■ 



■ 




i 



■ 



■ 




■ 


WORKING TAPES 

■ 










4060 □ 

REEL NO 

NO frames 





16 MM SKMM 

n □ 


ABMOWMAl ST0F( 


ITOt» AT LOC 

*R 


LOOPIMO LOC 
THAU 

CXCEtS OUTFUT 


EXCESS TIME 


TOTA' TAAE (Wives USED 
2 


DUMA MSTAUCTIONS 


NO DUMA 


DUMA ON STOA 


DUMA ON LOOA 


OTHER 


ACTUAL TM£ usage 




phocnammCR S comments 

* Tape B Is a special Texas A4M PCF tape. 


I 
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Ref -GO/ 2 


7P RUN 01048, FD32,C16,3696E,EI69,C, 2,6 D. COLUNGA 

VN MSG FILE REQ TAPE 2 EH 432 1 FSTRN 1 

V ASG A=A 

V ASG B-PCF 
7 ASG E 

XQT CUR 
TRW B 
IN B 
REL B 

V XQT GO 

GO DATA OECK 

V FIN 
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Steady Aerodynamic Influence Coefficient (SAIC) Program 
Inpu t Required 

(1) Tape A ■ GO tape *■ A05090 ^File generated by GD run) 

(?) SAIC data deck 

Progra m Required 

SAIC In PCF tape ("Tapr E) 

Prog ram Corrections Required 
None 

Ou tput Flu'S Generated 

(1) Tape B « SAIC TAPE B • A01827 

File Destinies 

(1) Tape B: UAIC 

CAIC 
SDSS 


Cov er Sheet Form at 
Ref-SAIC/1 

Cont rol Card s 
Ref-SAIC/2 

SAIC Data Deck 


Ref -Boeing Document 



MSTRUCTIOMt FOM CENTRAL COMPUTER COMPLEX COMPUTER RUNS 


' T^'^ l 1 


•AOOf NO 

. Colunga 1048 


OiVltlON coot Moa NO MK>J NO t»T TINK 

FD-32 El 69 3696E 50 


•Ol NO 

C-16 


MAH Time 

240 


TYPE OF RUN 


OAK 

6/2 


occkno 


IN* 0«'»" 

• A»I.ACS 


opcmatmc system 


not fORTNAN V □ UOO tCORt Q R»O0 [J TttT Q 


not rONTRAN IV Q MOO *MART| 0 OTn(R ICIRtAiN MLOWI 


HO* OTnCR Q MOO OTNCR Q 


INPUT TAPES 


RACK I (ART RCCL NO 


A05090 


E 


UNIT RCtL NO 


OUTPUT TAPES 


lAvt 


9 A018?: SAIC 


WORKING TAPES 


arnormal ST^a 


STOP AT LOC 

SR 


LOORINO LOC 
TIYIU 


tICCSS OUTPUT 


fleets TIM* 


4060 □ 


total TARf ORiVfS UkCD 


OUMR MSTRUCTlONt 


actual TIMC UtAOe 


NO OUMR 


OUMR ON & TOR 


OUMR ON LOOR 


OTMfR 




RROONAMMCR a COMMCNTS 

PC'" ■ Special Texas A4M Input Tape 


ORCRATORt COMMCNTS 

tTSTCM 


ORCRATOR 





















































Prf-SAIC/? Control Cards 
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j 7 pun 0104R,FD32,C16.3696E.E169.C,2A0,2 0. C0LUNC.A 

N MSr. fILE REO TAPE 3 FH432 2 FSTRN 16 
, ASr. A-A05090 
. Asn f«pcr 
vW A<;(, B'SAIC 

ASC. C.D,K,L,M,N,0,P,Q.R,S.T.U,V,W,X 
, XQT CUR 
TRW C 
IN F 
FR*^ 

IN E 
REL E 

V MAP PROG 

Sf.; A1C*MPAX.*(CPTGEN,AICGFN.TRN0VR,CAMTHK-*(CAMBFR, THICK)) 

MPAK SEG RHFAD-WHEAD-RVFC-WVEC-VLIN-VIP-LOCATE 
XOT PROG 

SAIC DATA DECK (cC REF-Boeing Document) 


'•riN 
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Internal Structural 1 n fluence Coefficient (ISIC) Progra m 
I i^ put R eq uired 

(1) Tape A - GO Tape ■ A05090 (File Generated b;* GD Run) 
(?) ISIC Data Deck 

P rogram Required 

ISIC In A06973 tape (• Tape Z) 


Ou tput Files Generated 

(1) Tape B « A07178 

(2) Tape C • A03098 

(3) Tape D - A13214 

(4) Tape E - A04911 

(5) Tape F ■ A01734 
(f) Tape » fc,7233 

f H e Destinies 

(1) Tape B: NM, SDSS 

(2) Tape C: NM 

(3) Tape D: NM 

(4) Tape E: SDSS, MER(i( 

(5) Tape F: SDSS, MER'’.I 

(6) Tape G; SLOAD, EAPl.OT 

C 0 vc£ Sheet Format 
Ref-ISIC/1 

Con trol Cards 
Ref-ISIC/2 

ISIC Data Deck 


Matrix Catalog 

Symmetric Normal Modes Matrices 
Antl-symmetr-lc Normal Modes Matrices 
Syntnetrlc SDSS Matrices 
Antl-symmetric SDSS Matrices 
Elastic Axis Plot Tape 


Ref -Boeing Document 




INSTIIVCTIONS FOff CENTRAL COMPUTER COMRLEU COMPUTER RUNS 




Ref-ISIC/1 


•AOOC MO Ml Na 


0. Colunqa 


OnntlOM coot IMKM MO IMMOJMO ItTTlMC 


EX 24 IE169 


3696E 



PMiOHitt 
» MTlM.1 


operating system 


TYPE OF RUN 


not fOMTMAM V □ MOO tCOMt □ ^00 CJ 


TffT □ 


not rOMTMAN IV 


MOO O I OTmCM (IXRIAIN Ki.OWl 


not othcm Q S(00 OTHfM Q 


































































<7 

RUN 

01619, EXZ4,C16,3696E,E169, 

,C,180, 

,12 

N 

MSG 

FILE REO TAPE 8 FH432 ? 

FSTRN 

16 


ASG 

A-*A05090 



<; 

ASG 

R-B 



s 

AS('. 

C«f 



S 

ASG 

D--I) 



<: 

ASG 

F-E 



'.S 

ASG 

F-F 



'■s 

ASG 

G-G 




ASG 

H,I,J,K,L,M,N,0,P,S,T,U,V, 

,W,X,Y 



ASG 

7'A06973 




Xf)T 

CUR 




TRW 

7 




IN 7 
RFL Z 

V MAP PROG 

SrG ISIC-MPAK-*(GOPROG. OPTION, THRE.FMAT) 
MPAK SEG VIP-VLIN-RVEC-WVEC-RHFAD-WHEAD-LOCATE 
TURF SEG SIC-*(SDEF,SAFMAT,TMAT,MMAT) 

. XOT PROG 


ISIC DATA DECK 'cf REF-Boclng Document) 
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Nonw. ll Modes (NM) Program 


lnp <<t Required 

(1) Tape A ■ ISIC catalog tape ■ A06909 (File generated by ISIC) 

(2) Tape C ■ Synwn ISIC tape ■ A0666P (File generated by ISIC) 

(3) Tape D ■ Asywi ISIC tape ■ A06292 (File generated by ISIC) 

(4) NM Data Deck 


i Vogram ReMulred 

NM program In T0204 tape ■ Tape Z 


lYogr ani Co rr ection Required 

(1) Insert New SUBROUTINE AG, IE to read as follows: 

SUBROUTINE AG(>IE 
DIMENSION KT(12) 

REWIND 1 
REWIND 2 

100 READ (1) I,J,K,MT 
WRITE (2) I,J.K,MT 
IF(I.GT.-l) GO TO 100 
REWIND 1 
REWIND 2 
STOP 
END 

REASON: Tape A should contain the original ISIC catalog, while 
tape B contains the altered catalog at the end of Normal 
Modes execution, 

NOTE: (1) This program should precede all Normal Modes runs. 

V?) Tape B from ISIC should be mounted on unit A (not 
unit B) 

(2) Statement number 74 of MONITR: New Insert to read as follows: 

IF(ICF.EQ.O) GO TO 100 

REASON; Check value of ICF to get out of DO LOOP. 

(3) Statement number 26 of CTINIT ; 

Delete 4 statements and newly Insert to read as follows: 

Delete COMMON/ CTOl/LCAT 
C0Ff<0N/CT02/NF0UT 
C0MM0N/CT03/LF0UT(6) 

C0MMON/CT04/NM0UT(6) 

Insert COMMON/CTOl . LCAT .NFOUT ,LF0UT( 6) .NMOUT (f ) 

REASON: Make common statement compatible with the other subroutines 

(4) Statemer.t number 46 and 47 of DSN: New Insert to read as follows: 

REWIND 7 
REWIND 8 
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REASON: Rewind Tape E and Tape F 

Fi le Generated 

(1) Tape B ■ NM cataloq tape • A08012 Matrix catalog from ISIC to SOSS 

(2) Tape E ■ Symm NM tape ■ A01078 Symmetric Matrices to SPSS I'nxnMin 

(3) Tape F ■» Asym NM tape • A0I344 Antl-synmetrlc Matrices to SDSS 

program 

(4) Tape G ■ Shape NM tape ■ A08045 Model shape tape to NMPl.01 proor.im 

Fil e Destinies 

(1) Tape B: SDSS 

(2) Tape E: MERGE 

(3) Tape F: MERGE 

(4) Tape G: NMPLOT 

Cover She et Format 
Ref-NM/1 

Co ntrol Cards 
Ref-NM/2 


MSTRUCTIONS FOR CENTRAL COMPUTER COMPLEX COMPUTER RUNS 
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MOGAAMMCH 

D. Colunga 


OADSl no 
1619 

00a NO 

C-16 

A> On{ no 

5971 

DATE 

6/30 

1 V 

t initials 

DIVISION COOC 

ANOO NO 

IaOOJ NO 

‘5 T time 

IMX TIME 

LINeS outaut 

OCCH NO 


EX 24 

E169 

3696E 40 

1 

50 

5k 




operating system 


TYPE OP RUN 


LOO MC 


MOO rcoToo * V □ 


5100 tCOPC O 


«ioo QJ 


TftT □ 


COMOUTCO OIOuiOCMCNTO 


MOO footman IV (S 


5100 tMAMTO O 


OTMOM (CXMLAIN OCLOwl 


MOO Q) 


5*00 O 


MOO OTMCM 


5100 OTmOM 


WPUT TAPES 


OTmCO 


OUTPUT TAPES 


RACK 

lawt 

oeeL NO 

F L'- 
NA'ie 

UNIT 

RCCL no 

file 

NAME 

C 

UVE 

AROCESSINO REOUHKO 


A 

A06909 

A 

B 

A08012 

B 


Yes 



C 

A06668 

C 

E 

A01078 

E 


Yes 



0 

A06292 

0 

F 

A01344 

K 


Yes 



Z 

T0204 

Z 

G 

A08045 

G 


Yes 












WORKING TAPES 











A060 □ 

REEL NO 

NO frames 





16 MM 35 MM 

n □ 


AONONMAL OTOMS 


ITOO AT LOC 

to 


Looomo LOC 
THOU 


eiccts OUTAUT 


excess Tiwe 


TOIA' TAAC OMIveS USED 
8 


DUMA INSTMUCTIONS 


NO Duma 


DUMA ON SIOA 


DUMA ON tOOA 


OTHen 


actual time usaoc 


I stm i^ 


AOOOAAMMEA s comments 

*Tape Z * T0204 is a special Texas A&M Tape 


OAEMATOR'S eOtOMCNTf 


I 

I 

I 


SVtTrM 

OPfdAlOff 


I 



D. COLUNGA 


7P RUN 01619,EX24,C16,3696E,E169,C,50,5 

vN MSG FILE REQ TAPE 8 FH432 2 FSTRN 8 

7 ASG A=A06909 

7S ASG B=A08012 

7 ASG C=A06668 

7 ASG D=A06292 

7S ASG E=A01078 

7S ASG F=A01344 

7S ASG G=A08045 

7 ASG H.I.J.K.L.M.N.P 

7 FOR AGGIE 

AGGIE SOURCE DECK 

7 XQT AGGIE 
7 XQT CUR 
TRW A 
REL A 

7 ASG Z=T0204 
7 XQT CUR 
TRW Z 
IN Z 
TRW Z 
REL Z 

7 FOR,* MONITR,MONITP 


-73 


IF(ICF.EQ.O) GO TO 100 
y FOR,* CTTNIT.CTINIT 
-26,29 

COMMON/ CTOl /LCAT , NFOUT , LFOUT ( 6 ) , NMOUT ( 6 ) 
V FOR,* DSN, DSN 
-45 

REWIND 7 

REWIND 8 
y MAP NMP 

SE6 NM-MpftK-*(INCONT, SHAPE, FNMAT.NMOUT) 

MPAK SEG VIP-VLIN-RVEC-WVEC-RHEAD-WHEAD-LOCATE 
y XQT NMP 

NM DATA DECK 


yFIN 


stability Derivatives and Static Stability (SPSS) Progra m 

I Gent-rate Absolute SPSS Progr am 

t^r oqram Required 

Symbolic and relocatable SDSS in PCFC tape (■ Tape C) 

Output Files uenerated 

Tape G ■ A08126 Absolute SDSS tape 

File Destinies 

Tape 6: SDSS 

Co ver Sheet Format 
Ref-SDSS-I/1 

Control Cards 


Ref-SDSS-I/2 


MSTRUCTIONS CENTRAL COMPUTER COMPLEX COMPUTER RUNS 


Ref-SDSS-1/1 


0. Colunga 


MVISIOM COM PMOO NO PNOJ NO 

FD 32 El 69 3696E 


OMCRATING SYSTEM 


MO« rONINAN V □ MOO SCO« □ «*00 □ TCIT 


MOO SMANTt Q OTmCN (IX^AIN KLOwI "O* 


not OTMf n Q sioo OTNf A Q 


«AOO( HO 

1048 

80> NO 

16-C 

CST TIM 

5 

MAX TIMC 
6 


k MitlXtS 


TYPE Of RUN 


no* XONTRAN (V 


•NPUT TAPES 


RACK I UMT s RtCL NO. 


PILE 

NAME 

UNIT 

REEL NO 

riLC 

NAMC 

c 

G 

A08126 

G 


OUTPUT TAPES 


lAvC 


WORKING TAPES 


AtNONMAL STvAt 


I’OA XT LOC 
SR 


LOORINO LOC 
TNRU 


excess OUTPUT 


excess timc 


4060 □ 


35MM 

□ 


total taps drives useo 


DUMP INSTRUCTIONS 


NO Dump 


DUMP ON STOP 


DUMP ON LOOP 


OT.4CR 


PROORAMMCR S COMMENTS 

* PCFC 1s a special Texas A&M PCF Tape 


ACTUAL TIME USAU 



I 



OPERATORS COMMENTS 


SYSTEM 





















































Ref-SDSS-I/2-1/4 
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;P RUN 01048, FD32,C16,3696E,E169,C. 6.1 D. CCI'INGA 

vN MSG FILE REQ TAPL 2 FH432 0 FSTRN 1 
VW ASG C-PCFC 

V ASG E 

V ASG G-A08126 

V COM 03477775 

V XQT CUR 
TRW C 
IN C 
ERS 

IN C 
TRW C 
TRW E 

TWR E. CARDIN/CODE 
TWR E.DCONRL/CODE 
TWR E.DEXOW/CODE 
TWR E,DPERT/COUE 
TWR E,DSTAB/CODE 
TWR E.DWT/COOE 
TWR E.DGYRO/COOE 
TWR E, FA/ CODE 
TWR E.R/COOE 
TWR E.FTOTAL/CODE 
TWR E,F2F3/C0DE 
TWR E, MAT PRT/ CODE 


Ref-SnSS-I/2-2/4 
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TWR E.SPECS/COOE 
TWR E.TA/COOE 
TWR E.TMOATA/COOE 
TWR E.TMPRT/COOE 
TWR E.TRIM/COOE 
TWR E.TRIMCC/COOE 
TWR E .TRIMIT/CODE 
TWR E,TS/COOE 
TWR E.WTOATA/CODE 
TWR E.WTOER/COOE 
TWR E.CSAB/CODE 
TWR E.CINVER/COOF 
TWR E, VI PA/ CODE 
TWR E, DATE/ CODE 
TWR E,INTURP/CODE 
TWR E, DATA /CODE 
TEF E 
ERS 
TRW E 
IN E 
TRW E 

V MAP CARDAL.CARDAL 

SEG CARDIN-DPERT-DWT-DSTAB-nCONRL-DGYRO-DTRST-MATPRT- ; 

SPECS- INTURP-OATA-OATE-ni XDW 
OFF CARDIN 


Ref-SDSS-I/2-3/4 
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V MAP TRIAJRIA 

SEG TRIM-TRIMIT-FTOTAL-TMPRT-CINVER-CSAB-WTOER-F2F3-; 

WTDATA-TRIMCC-FT-FA-VIPA-FS-TA-TS-TMOATA 
DEF TRIM 

V XQT CUR 


TOC 
TRW C 
TRW E 
OUT E 
TEF E 
TRW E 
ERS 
IN C 
ERS 
IN C 
TRI C 
IN E 
TRI E 

V MAP SDSSPE.SDSSPE 

SEG SDSS-MPAK-* ( ONE . ENG I NE .TRANS , OUA', , BAS I C , S I X , POST ) 

MPAk SEG RHEAD-WHEAD-RVEC-WVEC-VLIN-VIP 
ONE SEG PREPAR-*(CARDIN,TAPEIN) 

SIX SEG STACON-*(DONE.TRIM, SHAPE, INTDW,SOSP,PERTl,P2,PERT3,PERT4) 
P2 SEG PERT2-*(RDULSC-VAICA-UAICS-UDATA.UCTRAN,UPRES) 

V ABS SDSSPE.SDSSDE 


Ref-SOSS-1/2-4/4 
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V XQT CUR 
TOC 
TRW G 
OUT G.2 
TFF G 
TRI G 

V EOF 
VFIN 
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SUbllity Derivatives and Static Stability (SPSS) Program 


II SPSS Run 


In put Required 

(1) Tape A • GD tape « A05090 

(2) Tape B ■ SAIC tape ■ A01827 

(3) Tape C ■ Catalog tape > A08118 

(4) Tape D • Synw ISIC tape ■ A14061 

(5) Tape E - Asym ISIC tape - A12922 

(6) SOSS Data Deck 


(File generated by GD) 
(File generated by SAIC) 
(File generated by ISIC) 
(File generated by ISIC) 
(File generated by ISIC) 


P rogram Required 

Tope Z - ADS SOSS tape > A08126 


Program Correction Required 
None 


(File (jcncrated by SPSS- 1) 


Output File Generated 

(1) Tape F ■ SDSS tape 

(2) Punched card output 


. Loads matrices for SLOADS 
' Data for CER and TH 


File Destinies 

Tape F; SLOADS 
CER 
TH 

Cover Sheet Format 
Ref SOSS-II/1 


Control Cards 


Ref SDSS- I 1/2 


INSTRUCTIONS rOR CENTRAL COMPUTER COMPLEX COMPUTER RUNS 

Wef-SDSS-II/1 


’toOHAmdf m 

. f U lunqi 

1 


1 

"Modf HO 

1619 

l*0< HO ' 

\ f-lf 1 

'VhorC 

1 t.f>> 
1 ■ 

I 

'Ou 1 

! 6/23 

\ RR jxil * 

I » MiTtA«.t 

ov'SiON coot 

l.X ?4 

ri69 


>WOJ 

' 3f>';6[ - 

r f T.M( 
' 10 

MAl TlMf 

1 15 

lINCS OUTI\fi' DiC« NO ^ 

' bk ' 1 

I 

I 

I 

operating 

STSTEM 


r 

TrPCOf RUN 


i.00 NO 

I 



' □ 

WCO SCOPL 

Cl j 

1 I'wno 

L3 Tt*T □ 

I MLViUlHtMiSTB 

HO* tOR-RAR u QQ 

WOO SMAKTS 

□ 

^ jTmI' R II >1 a m « ■ ow' 


, t'OI 

c 

MOO C 

oct otH* «• 

□ 

J20O OThI H 

u 




1 

I OThlA 



input tapes output tapes 



OPCHATOK'S COMMEfITS 

I 

I \ 


SVSTtM 

Ol’tNAIOR 


























»;cf-SDSS-II/2 
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vP RUN 01040.F032,C16,3696E,n69,C,15,5 0. COLUNf.A 

VN MSn FI'C REQ TAPE 7 FH432 2 FSTRN 16 

N MSG PUNCHED CARD OUTPUT 
^ ASG A-A05090 

V ASG B-A01827 

V ASG C-A08118 

V ASG D=A14061 

V ASG E-A12922 

V ASG F-F 

V ASG Z-A08126 

V ASG I,J,K,L.N,0,P,g,R.S,T,II.V,W.X.Y 

V XQT CUR 
TRW I 
IN Z 
REL Z 

V XQT SPSSDE 

SDSS DATA DECK 


VFIN 
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Proqram To Fix Up SPSS 

V RUN 

VN MSG TAPE 2 FH432 0 FSTRN 2 

V ASG A* Current SPSS PCF Tape 

V ASG B-B 

V ASG C,P 

V COM 03477775 

V XQT CUR 
TRW A 

FINP A. SPECS/SYMBOLIC 
TRP A 

V FOR, *SPFCS, SPECS 
-211 

RtWINP NT17 

V XOT CUR 
TRW C 

OUT C.l SYMBOLIC 

TEF C 
TRW P 

OUT 0,3 RELOCATABLE 

TEF 0 

ERS 

TRW A 
TRW C 
I,. A 
IN C 
TRW B 

OUT B UPOATEO SYMBOLIC FILE 

TEF B 

ERS 

IN A 

TRW 0 

IN P 

OUT B - RELOCATABLE FILE UPOATEO 

TEF B 


! 


^7 


TRW 

A 

TRW 

B 

REL 

A 

F.RS 


IN 

B 

L 1ST 

SPECS 

TRW 

B 

REL 

B 

V FIN 





Geoinetry Def i nition Plot Program (GDPLOT) 


Inpu t Require d 

(1) GO Tape ■ ZZ0424 (Generated by GO) 

(2) GDPLOT Data Deck 

Program R equired 

GDPLOT program (source) Deck consist of 

( 1 ) GDPL 

(2) PGO 

(3) LOCATE and 

(4) Subprogram of the CALCOMP and GERBER basic software namely 
PLOT, LINE, AXIS, NUMBER, SCALE, SYMBOL, STOPP, etc. 

(5) Subprogram In S/360 Library such as DATE 
Prog ram Change Required 

Subroutine STOPP (equivalent to LINE4 of CALCOMP package) should be 
added to the last plot f»rogram. 

Ou tput Generated 

(1) GERBER Tape (Used as the Input data for GERBER 

plotter: /track) 

(2) GERBER plotted sheet 

(3) "Geometric Data from Geometry Definition File" (printed sheet) 

Jo b Control Cards 
Ref-GDPL-1 

OS/ 360 Job Ticket 
Ref-GOPL-2 

GER BER Job Ticket 
Ref-GDPL-3 

Wo rk Statistics 

(1) IBM S/360 Card In 910 

Card out 0 


Linos 1932 line 
Time 1.12 min. 

Cost Sfi.52 

T1m«’ about 40 min. 


(?) GERBFR 622 


Ref-r,DPL-l 
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//0Q8J5 JOB (90914,3-0- .002 .003, DC)," D. COLUNGA 

/‘CLASS F 230k - 320k 

/‘SETUP 

// EXEC GERBER, PARM.F0RT-BCD.«EGI0N-320k 
//FORT.SYSIN DO ‘ 

GDPLOT SOURCE DECK 

//GO.FTOIFOni DD UNIT-TAPE9, 

// V0L-SER-ZZ0424, 

// DISP-(OLD,PASS), 

// LABEL«(1,NL), 

// DCB*{RECFM-=VSB.LRECL»719fi,BLKSIZE-7200) 

//GO.SYSIN DD ‘ 

GDPL DATA DECK 

/‘ 


SPACE SHUTTLE " 
TAPE SETUP 





































Ref-GDPL-3 
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USER WA>g D. Colypyi, 

Acoourr iwr 


jGi near 


CAira wa« 

nam ZZ0455 esauiuiv 


on tha plotur um balow, tottihljr atetoh four «q^tad raanlta. Claarly ahov the 
at«rtli« pjlnt for tha plot, aid aou tha total vidth and haiflit of yc^ir drawing. 



%5" 


gQggqnaary 
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*ftlfeU~0M/ 

»0» - ,II I , B.p oo m Black 


npt or PAptm man miuc onn 
coMcnsi 



< 00 iOT VRX1I mtxm ma ldb* 

DA® puma 

mm or oat 

PLOT mm 


svurrao mm 

runu mm 


’K/GINAL PAGP ro 

0^’ QuS 

RPLOT Pill 

nop 



STOP 


WSTflPT PILE 




33 


Progr.im Correction For GOPl 


1 . Probi 

GDPL was orig'nally progranmpd for plotting data using the CALCOMP. This 
program could be used for the GFRBFR plotter except that In the GERPFR the 
last line was not produced. 


2 . P rogram Change Suggestio n 

On the GERBER CALL STOPP gives the required final line. 

Therefore In GOPL 
ORIGINAL PROGR AM 

CARD # 

0061 60 READ (NTGD) (ST0R( 1 ) , I-l .10) ,X0,Y0,Z0,THETR,ST0R( 1 1 ) 

(Comnent: READ NEW DATA from GD tape) 

0062 TF(STOR(1).EO.O) GO TO 400 

' (Comment: Check If DATA Is completed) 


0352 400 

0353 

0354 

Correction 

Insert 


PGNU=PGNU+15. 

CALL PLOT (PGNli,-YPAGE,-3) (To reset origin for next file) 
CALL PGD (NTGD.KFILGO) (To print GDTAPE) 

CALL STOPP between 0353 and 0354 


3. Document 

There are no documents containing GERBER instructions. However, 
subroutine "STOPP" Is equivalent to subroutine "LINE4" of CALCOMP 
basic package. 

Subroutine LINE4 (from LOCAL 0S/360 Library Subroutines pp 30.0) 

LINE4 - Is used to purge the buffer to insure that the last plot of a job 
Is complete. An end file mark is placed on the plot tape. LINE4 
should be the last plotting routine called and should only be 
called once. 


CALL LINE4 


No arguments are used. 


